home *** CD-ROM | disk | FTP | other *** search
/ Maximum CD 2004 December / maximum-cd-2004-12.iso / Software / Utilities / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Desktop Icon Colors.xpl < prev    next >
Encoding:
XSetup plugin  |  2003-11-19  |  1.6 KB  |  69 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="7"
  3. "COUNT"="5"
  4. "UIPATH 1"="Appearance\Interface\Icons"
  5. "NAME"="Icon Colors"
  6. "VERSION"="1.01"
  7. "LANGUAGE"="VBScript"
  8. "OSVERSION"="0111111"
  9. "TEXT 1"="16 Colors"
  10. "TEXT 2"="256 Colors (default for pre-XP)"
  11. "TEXT 3"="65K Colors (default for XP and above)"
  12. "TEXT 4"="16 Million Colors"
  13. "TEXT 5"="True Color"
  14. "DESCRIPTION 1"="This setting can be used to change how many colors Windows will use when "
  15. "AUTHOR"="Xteq Systems"
  16. "CONTACTURL"="http://www.xteq.com/"
  17. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  18. "COMMENT 1"="More Information: http://www.jsifaq.com/SUBA/tip0400/rh0497.htm"
  19.  
  20. sV="HKCU\Control Panel\Desktop\WindowMetrics\Shell Icon BPP" 'STRING 
  21. ' Value   Colors  
  22. '  4    16  
  23. '  8   256  
  24. ' 16   65536  
  25. ' 24   16 million  
  26. ' 32   True Color  
  27.  
  28. Sub Plugin_Initialize 
  29.  i=RegReadValue(sV)
  30.  if IsNumeric(i) then
  31.     Select Case i 
  32.            Case 4
  33.                 SetUIElement 1,true
  34.            Case 8
  35.                 SetUIElement 2,true
  36.            Case 16
  37.                 SetUIElement 3,true
  38.            Case 24
  39.                 SetUIElement 4,true
  40.            Case 32
  41.                 SetUIElement 5,true
  42.     End Select
  43.  end if
  44. End Sub
  45.  
  46. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  47.  i=0
  48.  
  49.  if GetUIElement(1)=true then i=4
  50.  if GetUIElement(2)=true then i=8
  51.  if GetUIElement(3)=true then i=16
  52.  if GetUIElement(4)=true then i=24
  53.  if GetUIElement(5)=true then i=32
  54.  
  55.  if i>0 then
  56.     Call RegWriteValue(sV,i,1)
  57.     Call IndicateSettingChange()
  58.     Call Logoff()
  59.  end if
  60.  
  61. End Sub
  62.  
  63.  
  64. Sub Plugin_Terminate 
  65. End Sub
  66.  
  67.  
  68.  
  69.